63900 REM *** QUICK MERGE ***
63901 OPEN15,8,15:POKE53281,1:POKE53280,0:IFM$(0)<>""THEN63907
63902 RESTORE:FORX=0TO10:READM$(X):NEXT
63903 DATA"1> VIEW FILE","2> SAVE FILE","3> MERGE FROM DISK","4> RENAME
63904 [131]"5> ERASE","6> REWRITE FILE","7> DIRECTORY","8> DUPLICATE"
63905 [131]"9> PRINT","CMD10> WRITE NEW PROGRAM","CMD11> EXIT TO BASIC"
63907 [153][199](142)"LOAD  QUICK MERGE MENU WAIT":[129]X[178]0[164]10:[153]"  "M$(X):[130]
63908 [153]:[133]"  SELECT";K$:K[178][197](K$):F$[178]"NONE":[139]K[179]1[176]K[177]11[167]63907
63909 [139][194](679)[167]F$[178]"":[129]X[178]680[164]680[170][194](679)[171]1:F$[178]F$[170][199]([194](X)):[130]
63910 [139]K[178]4[176]K[178]7[176]K[177]9[167]63912
63911 [153]"ON FILECLOSEINCLOSERAM: "F$"":[133]" FILE NAME: ";F$:[141]63917
63912 [145]K[137]63920,63930,63940,63913,63915,63915,63970,63920,63920,63998,63999
63913 [133]"OLD NAME ";F$:[133]"CHANGE TO";FX$:[141]63917
63914 F$[178]"R0:"[170]FX$[170]"="[170]F$:[152]15,F$:[141]63996:[137]63907
63915 [153]:[141]63917:[152]15,"S0:"[170]F$:[139]K[178]5[167]63907
63916 [137]63930
63917 [139][200](F$,1)[179][177]"/"[167]F$[178]"/"[170]F$:[151]679,[195](F$)
63918 [139]K[178]4[167][139][200](FX$,1)[179][177]"/"[167]FX$[178]"/"[170]FX$
63919 [129]X[178]680[164]680[170][194](679):[151]X,[198]([202](F$,X[171]679,1)[170][199](0)):[130]:[142]
63920 [153]"LOADFILE: "F$:[141]63995:[139]K[178]8[167]CH[178]0:[153]"TRANSFERRING FILE..."
63921 [139]K[178]9[167][160]4:[159]4,4,7
63922 [161]#2,K$:[139]K[178]9[167]L$[178]L$[170]K$:[139]K$[178][199](13)[167][152]4,L$;:L$[178]""
63923 [139]K[178]8[167]CH[178]CH[170]1:[151]49151[170]CH,[198](K$[170][199](0)):[137]63925
63924 [153]K$;:[139][194](214)[177]22[175]K$[178][199](13)[167][141]63990:[153]"LOAD"
63925 [139]ST[178].[167]63922
63926 [139]K[178]9[167][152]4,L$:[152]4:[160]4:[137]63929
63927 [139]K[178]8[167][153]"INSERT TARGET DISK":[160]2:[141]63991:[159]3,8,3,F$[170]",S,W"
63928 [139]K[178]8[167][141]63996:[129]X[178]1[164]CH:[152]3,[199]([194](49151[170]X));:[130]:[160]3
63929 [153]"-END-":Q[178][171]1:[137]63990
63930 [133]" SAVE FROM LINE#";LS:[133]" TO LINE#       ";LF:[139]LF[178][179]LS[167]63907
63932 F$[178]F$[170]",S,W":[141]63995:[153]"LOADCMD2:LIST"LS"-"LF
63933 [153]"PRINT#2:CLOSE2:RUN63900":[153]"SAVING..."
63934 [151]631,19:[129]Z[178]632[164]635:[151]Z,13:[130]:[151]636,8:[151]198,6:[128]
63940 [141]63995:[153]"LOADREADING: "F$:BANK[178]49152
63946 [161]#2,K$:[139]ST[167]63954
63947 [153]K$;:[151]BANK[170]LOC,[198](K$):LOC[178]LOC[170]1:[139]LOC[179]4096[167]63946
63948 [153]:[153]"FILE OVERFLOW":Q[178][171]1:[137]63990
63954 [160]2:[153]"-END-":[153]"MERGING "LOC[171]2"BYTES -- WAIT!"
63956 [151]1020,[181](BANK[173]256):[151]1021,BANK[171]([194](1020)[172]256)
63957 LOC[178]LOC[170]BANK:[151]1022,[181](LOC[173]256):[151]1023,LOC[171]([194](1022)[172]256)
63958 [129]T[178]1[164]1000:[130]:[153]"LOAD";
63960 BANK[178]([194](1020)[172]256)[170][194](1021):LOC[178]([194](1022)[172]256)[170][194](1023)
63961 [129]X[178]BANK [164] LOC:[153][199]([194](X));:[139][194](X)[179][177]13[167][130]:[138]63900
63963 X[178]X[170]1:[151]1020,[181](X[173]256):[151]1021,X[171]([194](1020)[172]256)
63964 [139][194](1024)[179]48[176][194](1024)[177]57[167]63960
63965 [153]"G(null)63960";:[151]631,19:[151]632,13:[151]633,19
63966 [129]Y[178]634[164]638:[151]Y,17:[130]:[151]639,13:[151]198,9:[128]
63970 [143]---DIRECTORY
63971 [160]2:[159]2,8,0,"$0":[153]"LOAD":[161]#2,X$,X$
63972 [161]#2,X$,X$,X$,Y$:C[178][198](X$[170][199](0))[170][198](Y$[170][199](0))[172]256
63974 [161]#2,Y$:[139]ST[167][153]:[153]"ONONBLOCKS FREE":Q[178][171]1:[137]63990
63975 [161]#2,Y$:[139]Y$[178][199](32)[176]Y$[178][199](34)[167]63975
63979 Z$[178]Z$[170]Y$
63980 [161]#2,Y$:[139]Y$[178][199](34)[167]63980
63981 [139]Y$[179][177]""[167]63979
63983 [153]C;:[139]C[178]0[167][153]"CMDCMDCMD DIR:";
63984 [151]211,7:[153]Z$:Z$[178]"":[139][194](214)[177]21[167][153]:[141]63990:[153]"LOAD";
63986 [137]63972
63990 [153]"";:[139]Q[179][177][171]1[167][153]"_ FOR MENU  OR ";
63991 [153]"-PRESS ANY KEY-";:[151]198,0:[146]198,1:Y[178][194](631):K$[178][199](Y)
63992 [151]198,0:[139]K$[178]"_"[176]Q[178][171]1[167][160]2:[138]63900
63993 [153]:[142]
63995 [160]2:[159]2,8,2,F$
63996 [132]15,E,E$:[139]E[179]20[167][142]
63997 [153]"DISK ERROR#"E;E$:[152]15,"I":Q[178][171]1:[137]63990
63998 [153]"LOADTYPE PROGRAM LINES. TO RESTART QUICK MERGE, TYPE 'RUN 63900'"
63999 [153]"LOADPROGRAM TERMINATED":[128]